﻿Module Module1
  Sub Main()

    Dim data As New Date
    data = Nothing
    Dim dataNascita As DateTime? = data

    Dim dataNascita2 As Nullable(Of DateTime) = data

    If (dataNascita.HasValue) Then
      ' ... se la data di nascita contiene un
      ' valore non nullo fai qualcosa ...
      Console.WriteLine("Data nulla")
    End If

    Console.ReadLine()

  End Sub
End Module
